home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM A / PD-ROM A.iso / Programming / Programming Languages / Pocket Forth rel.5 / Source code / applSource / pForthDict.asm < prev    next >
Encoding:
Assembly Source File  |  1991-06-10  |  1.3 KB  |  48 lines  |  [TEXT/ASM ]
  1. ; pForthDict.asm
  2. ; Pocket Forth version of Flint  7:48:10 PM  1/12/87
  3. ; put into "DICT" resource 1:27:38 PM  1/23/87
  4. ; change DP to Dict and CP to DP 4:48:49 PM  1/24/87
  5. ; add optional base expansion 11:33:21 PM  2/3/87
  6. ; restructure 8:22:09 AM  2/11/87
  7. ; version 0.3  12:53:54 PM  1/21/88
  8. ; Fri Apr 29, 1988 10:17:36 v 0.4
  9. ; 11:55:00 PM 6/3/91 restructure preamble
  10.  
  11. WHeight    EQU    178
  12. WWidth    EQU    384
  13. CR    EQU    $0D
  14. BS    EQU    8
  15. BL    EQU    32
  16.  
  17. MACRO    Counter =    D7 |        ; Character count
  18. MACRO    Dict =    D6 |            ; _DICT_ionary last word (rel.addr)
  19. MACRO    RS =    A7 |            ; _R_eturn (and system) _S_tack
  20. MACRO    PS =    A6 |            ; _P_arameter _S_tack
  21. MACRO    IS =    A4 |            ; _I_nput _S_tream
  22. MACRO    BP =    A3 |            ; _B_ase _P_ointer
  23. MACRO    DP =    A2 |            ; _D_ictionary _P_ointer
  24.  
  25. MACRO    Base =    Bottom |        ; address of the bottom address
  26. MACRO    theLink =  Base-6 |        ; dictionary search link address
  27.  
  28. INCLUDE    Traps.txt
  29.  
  30. .ALIGN 2     ;     TYPE    ID#   Title   attribute: locked
  31. RESOURCE    'DICT'    257  'Pocket'    16
  32.  
  33. ; ----- start of code ------
  34.  
  35. Bottom:    JMP    Cold            ; first time run
  36.     JMP    GRet            ; grow return
  37.  
  38. INCLUDE    aSupport.txt            ; the interface
  39. INCLUDE aInterp.txt            ; the interpreter
  40. INCLUDE    Common.txt            ; the dictionary
  41.  
  42.     DC.B    4,'TAS'            ; "task" ( -- ) a no-op word
  43.     DC.W    qbutton-theLink        ;  use:  forget task : task ;
  44. Task:    RTS                ;  to cleanup dictionary
  45. DictEnd:
  46.  
  47. END
  48.